perm filename TEXPRS.DIF[TEX,DEK] blob sn#500224 filedate 1980-03-28 generic text, type T, neo UTF8
  1) TEXPRS.SAI[TEX,DEK] and 2) TEXPRS.SAV[TEX,DEK]	3-28-80 21:48	pages 2,2

**** File 1) TEXPRS.SAI[TEX,DEK]/2P/20L
1)	IFPARC external boolean color;
1)	external integer curbrightness,curhue,cursaturation;
1)	ENDPARC
1)	comment initialization: initout,declareofil;
**** File 2) TEXPRS.SAV[TEX,DEK]/2P/20L
2)	IFPARC external boolean color,curbrightness,curhue,cursaturation; ENDPARC
2)	comment initialization: initout,declareofil;
***************


**** File 1) TEXPRS.SAI[TEX,DEK]/3P/22L
1)	IFPARC
1)	comment Warning: these definitions shared among TEXPRS and TEXHDR!!;
1)	define brightness=0, hue=1, saturation=2;
1)	define colornodesize=2 # number of words to allocate for a color node;
1)	define colorwhatsit=1 # type code for color whatsits;
1)	define colorcmd(p)=⊂((mem[p+1] lsh -8) land '3)⊃;
1)	define colorval(p)=⊂(mem[p+1] land '377)⊃;
1)	ENDPARC
1)	comment Procedures for 8-bit-byte file I/O;
**** File 2) TEXPRS.SAV[TEX,DEK]/3P/22L
2)	comment Procedures for 8-bit-byte file I/O;
***************